Rp

1) Program to illustrate if else


{

a<-c(1,2,3)

b<-c(4,5,6)

if(length(a)==length(b))

{

  print("same")

}else{

  print("not Same")

}

}




2) Program to illustrate for loop and stop condition


{

for(i in 1:10)

{

  print(paste("i=",i))

  if(i==5)

  {

    stop("iteration stopped on condition at i=5")

  }

}

}




3)programe to Find factoriel of the the given number


{
  fact=function(n)
  {
    if(n<=1)
      return(1)
    else
      return(n*fact(n-1))
  }
  n=as.numeric(readline("enter a number"))
  print(paste("the factoreialof ",n,"=",fact(n)))
}

 



4) Program to Implement t test 


groupA<-c(18,21,24,27,30)

groupB<-c(17,20,23,26,29)

res_ttest<-t.test(groupA,groupB)

res_ttest





5) Programe to write the t apply and s apply functions






values<-c(42,55,38,65,49,72,53,66,41,58)


groups<-factor(c("A","B","A","B","A","B","A","B","A","B"))


mean_by_tapply<-tapply(values, groups, mean)


mean_by_sapply<-sapply(unique(groups),function(group){


  mean(values[groups==group])


})


print(mean_by_sapply)






9) Write a Program for graphic funciotns like plot his line chartp pie scatter etc




# Plot


plot(c(1, 2), c(3, 4))




# Histogram


v <- c(12, 24, 16, 38, 21, 13, 55, 17, 39, 10, 60)


hist(v, xlab = "marks", ylab = "frequency", main = "Histogram")




# Line chart


V <- c(13, 22, 28, 7, 31)


plot(V, type = "o", col = "purple", xlab = "Month", ylab = "temperature", main = "Line chart")




# Pie chart


Peoples <- c(23, 56, 20, 63)


city <- c("Mumbai", "Pune", "Chennai", "Bengaluru")


pie(Peoples, labels = city, main = "City Pie Chart", col = rainbow(length(Peoples)))


legend("topright", c("Mumbai", "Pune", "Chennai", "Bengaluru"), cex = 0.5, fill = rainbow(length(Peoples)))




# Box plot


boxplot(mpg ~ cyl, data = mtcars, main = "Mileage Data Boxplot", ylab = "Miles per Gallon (mpg)", xlab = "Number of Cylinders", col = "orange")




# Scatter plot


data <- mtcars[c('wt', 'mpg')]


plot(data$wt, d

ata$mpg, xlab = "Weight", ylab = "Mileage", main = "Weight vs Mileage")







10) Program for with any data set containg dataframe objects and emplyee manipulating and analysing data






df <- data.frame(


  name = c("amiya", "raj", "ashish"),


  program_language = c("R", "python", "java"),


  age = c(22, 25, 45)


)


cat("Before adding the rows\n")


print(df)


mytbl <- df


new_row <- data.frame(


  name = "sandeep",


  program_language = "C",


  age = 20


)


newdf <- rbind(mytbl, new_row)


cat("After adding the row\n")


print(newdf)










11) Program to crate a application of linear regration in multivariant context for predictive purpuse




{


  bp<-c(150,140,180,135,142)


  age<-c(48,43,52,36,40)


  cat("correlation between bp and age is",cor(bp,age))


  model<-lm(bp~age)


  summary(model)


}








12) Programe to Find mean mod and median




a=c(8,10,4,6,23,5,9,8,5,4,8,7,8)


print(paste("the mean of vector is",mean(a)))


print(paste("the median of vector is",median(a)))


mode=names(sort(-table(a))[1])


print(paste("the mod of vector is",mode))






8) 




{


output_file_path<-"C:\file\out.txt"


data<-"hello this is a test"


paste("written successfully",writeLines((data,output_file_path)))


paste("file read data is",readLines("C:\file\out.txt"))


}

Comments

Post a Comment

Popular posts from this blog

Abhijit_python

PART -A Program 1: Check whether the number is belongs to Fibonacci series or not. n=int(input("Enter a number:")) c=0 a=1 b=1 if n==0 or n==1: print("yes,It is Fibonacci Number") else: while c<n: c=a+b b=a a=c if c==n: print("Yes,{0} is fibonacci number".format(n)) else: print("No,{0} is not fibonacci number".format(n)) =========OUTPUT======== Ex:1 Enter a number:5 Yes,5 is fibonacci number Ex:2 Enter a number:4 No,4 is not fibonacci number   Program 2: Solve Quadratic Equations import cmath a=int(input("Enter value for a:")) b=int(input("Enter value for b:")) c=int(input("Enter value for c:")) d=(b**2)-(4*a*c) sol1=(-b-cmath.sqrt(d))/(2*a) sol2=(-b+cmath.sqrt(d))/(2*a) print("the solution are:\n",sol1,"and",sol2) =========OUTPUT======== Enter value for a:5 Enter value for b:10 Enter value for c:15 the solution are: (-1-1.4142135623730951j) and (-1+1.4142135623730951j)   Program 3:Find the sum...
Read more

Php

 1.prime   < html >     < style >         body {             background-color : lightblue ;                 }     </ style > <?php function isPrime ( $n ) {     if ( $n <= 1 )         return false ;     for ( $i = 2 ; $i <= sqrt ( $n ); $i ++)     {         if ( $n % $i == 0 )             return false ;     }     return true ; } $start = 3 ; $end = 20 ; $count = 0 ; for ( $i = $start ; $i <= $end ; $i ++) {     if ( isPrime ( $i ))     {         echo " $i \t " ;         $count ++;     } } echo " <br>The Total number of Prime numbers are = $count " ; ? > </ html > 2)Messgeg Passing    < html >     ...
Read more

Abhijit HTML

 MultimediaAndAnimation  SECTION A  ProgramNo.1:Program to Design LOG IN Form in Html.  <!DOCTYPEhtml>  <html>  <head>  <metaname="viewpoint"content="width"=device width, initial-scale="1">  <title> Login Page</title>  </head>  <body>  <center><h1>StudentLogin Form</h1></center>  <form><center>  <divclass="container">  <lable>username:</lable>  <inputtype="text" place holder="entertheusername" name="username"requried></div><div>  <lable>password:</lable>  <inputtype="password"placeholder="enter password" name="password"requried></div><BR/>  <button type="submit">login</button>  <inputtype="checkbox" checked="checked"> Rememberme  <buttontype="button"class="Canclebtn">...
Read more