a b/src/kmeans_cluster.r 

  1
  
> View(newdf)





  
  

  2
  





  
  

  3
  
> newdf=df[,c(-1,-2,-3,-1050)]





  
  

  4
  





  
  

  5
  
> fc=kmeans(newdf,2)





  
  

  6
  





  
  

  7
  
> fc