Shingle<-0
i<-0
while(i<nchar(u1)-0+1)
{
Shingle[i]<-substr(u1,start=i,stop=i+0)
print(Shingle[i])
i=i+1
}
occurance<-table(Shingle[Shingle %in% Shingle])
#Second Moment Calculation
second_moment<-sum(occurance[1:length(occurance)]^2)
#AlonMatiasSzegedy Algorithm
random_position_element<-c(3,8,13)
k<-NULL
random_element_value<-NULL
est<-NULL
sh_n<-length(Shingle)
for(i in 1: length(random_position_element))
{
k<-append(k,Shingle[random_position_element[i]])
com<-Shingle[random_position_element[i]]
counter<-0
for(j in random_position_element[i]:sh_n)
{
if(Shingle[j]==com)
{
counter<-counter+1
}
if(j==sh_n)
{
random_element_value<-append(random_element_value,counter)
}
}
}
names(random_position_element)<-k
names(random_element_value)<-k
est<-sh_n*(2*random_element_value[1:length(random_element_value)]-1)
ams<-sum(est)/length(est)
print(occurance)
print(random_position_element)
print(random_element_value)
cat("Second Moment: ",second_moment,"\n","Approximate Second Moment:
",ams)