MATH 281C Homework 4
Due Tuesday, 05/17/2016
If the assignment includes code, send your code to [email protected] Follow the following
format exactly. For Homework 1, in subject line write MATH 281C (HW 1) and nothing else in
the body. There should o

#281C
hw2
#problem 1
hc.test <- function(p)cfw_
u = seq(0.001,0.999,0.001)
fu = numeric(length(u)
hc = numeric(length(u)
for (i in 1:length(u)cfw_
fu[i] = (1/length(p)*sum(p<=u[i])
# calculate HC
hc[i] = sqrt(length(p)*(fu[i]-u[i])/sqrt(u[i]*(1-u[i])
max

MATH 281C Homework 5
Due Thursday, 06/02/2016
If the assignment includes code, send your code to [email protected] Follow the following
format exactly. For Homework 1, in subject line write MATH 281C (HW 1) and nothing else in
the body. There should

# Lu, Zeyun
# HW1
hw1 <- function(num,prob,alpha=0.01)cfw_
m = num
p = prob
m1 = m*p
z = numeric(m)
false_index = seq(1,m*p,1)
# set our theta i, from the testing, both simes and sidak's power close to
1 around 6.5, so I set the largest theta as 6.5 and 2

MATH 281C Homework 3
Due Tuesday, 05/03/2016 (paper) and Friday, 05/05/2016 (code)
If the assignment includes code, send your code to [email protected] Follow the following
format exactly. For Homework 1, in subject line write MATH 281C (HW 1) and no

MATH 281C Homework 2
Due Tuesday, 04/26/2016, in class (paper) or by 11:59 PM (code)
If the assignment includes code, send your code to [email protected] Follow the following
format exactly. For Homework 1, in subject line write MATH 281C (HW 1) and

#hw5
# Zeyun Lu
hc.test <- function(p)cfw_
u = seq(0.1,0.9,0.1)
fu = numeric(length(u)
hc = numeric(length(u)
for (i in 1:length(u)cfw_
fu[i] = (1/length(p)*sum(p<=u[i])
# calculate HC
hc[i] = sqrt(length(p)*(fu[i]-u[i])/sqrt(u[i]*(1-u[i])
max_hc = max(h

MATH 281C Homework 1
Due Tuesday, 04/12/2016, in class (paper) or by 11:59 PM (code)
If the assignment includes code, send your code to [email protected] Follow the following
format exactly. For Homework 1, in subject line write MATH 281C (HW 1) and