Free AI R Code Generator Online

count_words <- function(string) {
    return(length(unlist(strsplit(string, "\\s+"))))
}

sentence <- "R is a programming language for statistical computing and graphics"
print(paste("Number of words in the sentence:", count_words(sentence)))

word_frequency <- function(text) {
  # Convert text to lowercase and remove punctuation
  cleaned_text <- tolower(gsub("[[:punct:]]", "", text))
  
  # Split text into words
  words <- unlist(strsplit(cleaned_text, "\\s+"))
  
  # Calculate word frequencies
  word_counts <- table(words)
  
  # Convert word counts to data frame
  word_freq_df <- as.data.frame(word_counts)
  names(word_freq_df) <- c("Word", "Frequency")
  
  # Order data frame by frequency in descending order
  word_freq_df <- word_freq_df[order(-word_freq_df$Frequency), ]
  
  return(word_freq_df)
}

# Example usage:
text <- "R is a programming language for statistical computing and graphics. It is widely used among statisticians and data miners for developing statistical software and data analysis."
word_freq <- word_frequency(text)
print(word_freq)

matrix_diagonal_sum <- function(mat) {
  n <- nrow(mat)
  if (n != ncol(mat)) {
    stop("Input matrix must be square.")
  }
  diagonal_sum <- sum(diag(mat))
  return(diagonal_sum)
}

# Example usage:
matrix <- matrix(1:9, nrow = 3)
diagonal_sum <- matrix_diagonal_sum(matrix)
print(paste("Sum of elements on main diagonal:", diagonal_sum))