Publications by Jaya Veluri
Document
Loading Libraries Function to download the desired files url.spam <- "http://spamassassin.apache.org/old/publiccorpus/20050311_spam_2.tar.bz2" file.spam <- "20050311_spam_2.tar.bz2" file.spam2<-"20050311_spam_2.tar" url.ham <- "http://spamassassin.apache.org/old/publiccorpus/20030228_easy_ham.tar.bz2" file.ham <- "20030228_easy_ham.tar.bz2"...
937 sym R (4309 sym/18 pcs) 1 img 1 tbl
Document
Working backwards, Part II A 90% confidence interval for a population mean is (65, 77). The population distribution is approximately normal and the population standard deviation is unknown. This confidence interval is based on a simple random sample of 25 observations. Calculate the sample mean,the margin of error, and the sample standard deviati...
1354 sym R (750 sym/11 pcs)
Document
Show that (Transpose of A)A NOT Equal To A (Transpose of A) in general A <- matrix(c(2,1,3,6,0,-1,3,1,-2), nrow=3, byrow=TRUE) At <- t(A) At ## [,1] [,2] [,3] ## [1,] 2 6 3 ## [2,] 1 0 1 ## [3,] 3 -1 -2 A ## [,1] [,2] [,3] ## [1,] 2 1 3 ## [2,] 6 0 -1 ## [3,] 3 1 -2 At ## [,...
1220 sym R (2171 sym/29 pcs)
Document
My First name is Jaya and last Name is Veluri, so I am plotting JV as below. y = c(1, 1) A1 = matrix(c( c(1, 0), c(0, 1)), byrow = TRUE, nrow = 2) A2 = matrix(c( c(-1, 0), c(0, 1)), byrow = TRUE, nrow = 2) A3 = matrix(c( c(-1, 0), c(0, -1)), byrow = TRUE, nrow = 2) plot((A1 %*% y...
675 sym R (1331 sym/4 pcs) 2 img
Document
M = matrix(c(1, 0, 0, .3, .4, .3, .2, .1, .7), nrow = 3, byrow = T ) colnames(M) = c("H", "Y", "D") rownames(M) = c("H", "Y", "D") M %^% 2 ## H Y D ## H 1.00 0.00 0.00 ## Y 0.48 0.19 0.33 ## D 0.37 0.11 0.52 ## Probability is 1 ...
8 sym R (285 sym/3 pcs)
Document
The price of one share of stock in the Pilsdorff Beer Company (see Exercise 8.2.12) is given by Yn on the nth day of the year. Finn observes that the differences Xn = Yn+1 − Yn appear to be independent random variables with a common distribution having mean µ = 0 and variance σ 2 = 1/4. If Y1 = 100, estimate the probability that Y365 is ≥ ...
2101 sym R (242 sym/6 pcs)
Document
Let X1, X2, . . . , Xn be n mutually independent random variables, each of which is uniformly distributed on the integers from 1 to k. Let Y denote the minimum of the Xi’s. Find the distribution of Y . ## If K^n is the sum of variables then (k−1)^n would represent varaibles where Xi does not contain 1 ##P(X=1)=\frac { { k }^{ n }-{ (k-1) }^{...
1204 sym R (1458 sym/29 pcs)
Document
Question 1(Bayesian). A new test for multinucleoside-resistant (MNR) human immunodeficiency virus type 1 (HIV-1) variants was recently developed. The test maintains 96% sensitivity, meaning that, for those with the disease, it will correctly report “positive” for 96% of them. The test is also 98% specific, meaning that, for those without the ...
4344 sym R (2677 sym/56 pcs)
Document
1a) Modify the program CoinTosses to toss a coin n times and print out after every 100 tosses the proportion of heads minus 1/2. Do these numbers appear to approach 0 as n increases? CoinTosses1a <- function(n){ coin <- c("heads","tails") toss <- sample(coin, size = n, replace = TRUE) count_heads <- length(which(toss == "heads")) ...
434 sym R (545 sym/4 pcs)
Document
##(1) What is the rank of the matrix A? A = 1 2 3 4 −1 0 1 3 0 1 −2 1 5 4 −2 −3 A: (1)The set of pivot columns of any reduced row echelon form matrix is known as Rank. #Create a matrix A = matrix(c(1,-1,0,5, 2,0,1,4, 3,1,-2,-2, 4,3,1,-3),ncol = 4) A ## [,1] [,2] [,3] [,4] ## [1,] 1 2 3 4 ## [2,] -1 0 1 3 ...
536 sym R (816 sym/10 pcs)