Displaying 4 results from an estimated 4 matches for "no_of_points".
2017 Aug 28
5
"Improvement with the R code"
...ition takes place
for(j in 1: (nrow(checkdf)-1))
{
if(checkdf$clusterNum[j]==k)
{
if(checkdf$clusterNum[j+1]==1){
count1=count1+1
}
else if(checkdf$clusterNum[j+1]==2){
count2=count2+1
}
else {
count3=count3+1
}
}
}
no_of_points=(count1+count2+count3)
s1=count1/no_of_points
s2=count2/no_of_points
s3=count3/no_of_points
transition_matrix[k,]=c(s1, s2, s3)
}
I know the code is not written nicely and I want to improve it.
Thanks in advance
Niharika
[[alternative HTML version deleted]]
2017 Aug 28
0
"Improvement with the R code"
...f$clusterNum[j]==k)
> {
> if(checkdf$clusterNum[j+1]==1){
> count1=count1+1
> }
> else if(checkdf$clusterNum[j+1]==2){
> count2=count2+1
> }
> else {
> count3=count3+1
> }
> }
> }
>
> no_of_points=(count1+count2+count3)
> s1=count1/no_of_points
> s2=count2/no_of_points
> s3=count3/no_of_points
> transition_matrix[k,]=c(s1, s2, s3)
>
> }
>
> I know the code is not written nicely and I want to improve it.
>
> Thanks in advance
> Niharika
>
>...
2017 Aug 28
0
"Improvement with the R code"
...>>> else if(checkdf$clusterNum[j+1]==2){
>>>> count2=count2+1
>>>> }
>>>> else {
>>>> count3=count3+1
>>>> }
>>>> }
>>>> }
>>>>
>>>> no_of_points=(count1+count2+count3)
>>>> s1=count1/no_of_points
>>>> s2=count2/no_of_points
>>>> s3=count3/no_of_points
>>>> transition_matrix[k,]=c(s1, s2, s3)
>>>>
>>>> }
>>>>
>>>> I know the code is not wr...
2017 Aug 28
0
"Improvement with the R code"
...>> count2=count2+1
>>>>>> }
>>>>>> else {
>>>>>> count3=count3+1
>>>>>> }
>>>>>> }
>>>>>> }
>>>>>>
>>>>>> no_of_points=(count1+count2+count3)
>>>>>> s1=count1/no_of_points
>>>>>> s2=count2/no_of_points
>>>>>> s3=count3/no_of_points
>>>>>> transition_matrix[k,]=c(s1, s2, s3)
>>>>>>
>>>>>> }
>>>...