anonymous No title
No License R
2020年04月15日
Copy
 sum1 <- 0                        
 for (i in 1:10000) {             
   sum1 <- sum1 + i                  
 }                             
 sum1 #2-1
 
 
 sum2 <- 0
 for(n in 1:1000){
     sum2 <- sum2 + (2 * n + 1)
 } 
 sum2 #2-2
 
 
 sum3 <- 1
 for(n in 1:10){
     sum3 <- sum3 * exp(n);
 }
 sum3 <- sqrt(sum3)
 sum3 #2-3
 sum1 <- 0                        
 for (i in 1:10000) {             
   sum1 <- sum1 + i                  
 }                             
 sum1 #2-1
 
 
 sum2 <- 0
 for(n in 1:1000){
     sum2 <- sum2 + (2 * n + 1)
 } 
 sum2 #2-2
 
 
 sum3 <- 1
 for(n in 1:10){
     sum3 <- sum3 * exp(n);
 }
 sum3 <- sqrt(sum3)
 sum3 #2-3

No one still commented. Please first comment.