**R programming**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

In today’s algorithmic trading having a trading edge is one of the most critical elements. It’s plain simple. If you don’t have an edge, don’t trade! Hence, as a quant, one is always on a look out for good trading ideas. One of the good resources for trading strategies that have been gaining wide popularity is the Quantpedia site. Quantpedia has thousands of financial research papers that can be utilized to create profitable trading strategies.

The “Screener” page on Quantpedia categorizes hundreds of trading strategies based on different parameters like Period, Instruments, Markets, Complexity, Performance, Drawdown, Volatility, Sharpe etc.

Quantpedia has made some of these trading strategies available for free to their users. In this article, we will explore one such trading strategy listed on their site called the “52-Weeks High Effect in Stocks”.

**52-Weeks High Effect in Stocks**

(http://quantpedia.com/Screener/Details/18)

The Quantpedia page for this trading strategy provides a detailed description which includes the 52-weeks high effect explanation, source research paper, other related papers, a visualization of the strategy performance and also other related trading strategies.

**What is 52-Weeks High Effect? **

Let us put down the lucid explanation provided on Quantpedia here –

*The “52-week high effect” states that stocks with prices close to the 52-week highs have better subsequent returns than stocks with prices far from the 52 –week highs. Investors use the 52-week high as an “anchor” which they value stocks against. When stock prices are near the 52-week high, investors are unwilling to bid the price all the way to the fundamental value. As a result, investors’ under-react when stock prices approach the 52-week high, and this creates the 52-week high effect. *

**Source Paper**

(http://papers.ssrn.com/sol3/papers.cfm?abstract_id=1787378)

The Source paper, “Industry Information and the 52-Week High Effect” has been authored by Xin Hong, Bradford D. Jordan, and Mark H. Liu.

*The financial paper says that traders use the 52-week high as a reference point which they evaluate the potential impact of news against. When good news has pushed a stock’s price near or to a new 52-week high, traders are reluctant to bid the price of the stock higher even if the information warrants it. The information eventually prevails and the price moves up, resulting in a continuation. It works similarly for 52-week lows.*

The trading strategy developed by the authors buys stocks in industries in which stock prices are close to 52-week highs and shorts stocks in industries in which stock prices are far from 52-week highs. They found that the industry 52-week high trading strategy is more profitable than the individual 52-week high trading strategy proposed by George and Hwang (2004).

**Framing our 52-Weeks High Effect Strategy using R programming**

Having understood the 52-weeks High Effect, we will try to backtest a simple trading strategy using R programming. Please note that we are not trying to replicate the exact trading strategy developed by the authors in their research paper.

We test our trading strategy for a 3-year backtest period using daily data on around 140 stocks listed on the National Stock Exchange of India Ltd. (NSE).

**Brief about the strategy** – The trading strategy reads the daily historical data for each stock in the list and checks if the price of the stock is near its 52-week high at the start of each month. We have shown how to check for this condition in step 4 of the trading strategy formulation process illustrated below. For all the stocks that pass this condition, we form an equal weighted portfolio for that month. We take a long position in these stocks at the start of the month and square off our position at the start of the next month. We follow this process for every month of our backtest period. Finally, we compute and chart the performance metrics of our trading strategy.

Now, let us understand the process of trading strategy formulation in a step-by-step manner. For reference, we have posted the R code snippets of relevant sections of the trading strategy under its respective step.

**Step 1: **First, we set the backtest period, and the upper and lower thresholds values for determining whether a stock is near its 52-week high.

# Setting the lower and upper threshold limits lower_threshold_limit = 0.90 # (eg.0.90 = 90%) upper_threshold_limit = 0.95 # (eg.0.95 = 95%) # Backtesting period (Eg. 1 = 1 year) minimum period selected should be 2 years. noDays = 4

**Step 2: **In this step, we read the historical stock data using the read.csv function from R. We are using the data from Google finance and it consists of the Open/High/Low/Close (OHLC) & Volume values.

# Run the program for each stock in the list for(s in 1:length(symbol)){ print(s) dirPath = paste(getwd(),"/4 Year Historical Data/",sep="") fileName = paste(dirPath,symbol[s],".csv",sep="") data = as.data.frame(read.csv(fileName)) data$TICKER = symbol[s] # Merge NIFTY prices with Stock data and select the Close Price data = merge(data,data_nifty, by = "DATE") data = data[, c("DATE", "TICKER","CLOSE.x","CLOSE.y")] colnames(data) = c("DATE","TICKER","CLOSE","NIFTY") N = nrow(data)

**Step 3: **Since we are using the daily data we need to determine the start date of each month. The start date need not necessarily be the 1^{st} of every month because the 1^{st} can be a weekend or a holiday for the stock exchange. Hence, we write an R code which will determine the first date of each month.

# Determine the date on which each month of the backtest period starts data$First_Day = "" day = format(ymd(data$DATE),format="%d") monthYr = format(ymd(data$DATE),format="%Y-%m") yt = tapply(day,monthYr, min) first_day = as.Date(paste(row.names(yt),yt,sep="-")) frows = match(first_day, ymd(data$DATE)) for (f in frows) {data$First_Day[f] = "First Day of the Month"} data = data[, c("TICKER","DATE", "CLOSE","NIFTY","First_Day")]

**Step 4: **Check if the stock is near the 52-week high mark. In this part, we first compute the 52-week high price for each stock. We then compute the upper and the lower thresholds using the 52-week high price.

**Example:**

If the lower threshold = 0.90, upper threshold = 0.95 and the 52-week high = 1200, then the threshold range is given by:

Threshold range = (0.90 * 1200) – (0.95 * 1200)

Threshold range = 1080 to 1140

If the stock price at the start of the month falls in this range, we then consider the stock to be near its 52-week high mark. We have also included one additional condition in the step. This condition checks whether the stock price in the past 30 days had reached the current 52-week high price and whether it is within the threshold range now. Such a stock will not be included in our portfolio as we assume that the stock price is in decline after reaching today’s 52-week high price.

# Check if the stock is near its 52-week high at the start of the each month data$Near_52_Week_High = "" ; data$Max_52 = numeric(nrow(data)); data$Max_Not = numeric(nrow(data)); frows_tp = frows[frows >= 260] for (fr in frows_tp){ # This will determine the max price in the last 1 year (252 trading days) data$Max_52[fr] = max(data$CLOSE[(fr-252):(fr-1)]) # This will check whether the max price has occurred in the last "x" days. data$Max_Not[fr] = max(data$CLOSE[(fr-no_max):(fr-1)]) if ((data$CLOSE[fr] >= lower_threshold_limit * data$Max_52[fr]) & (data$CLOSE[fr] <= upper_threshold_limit * data$Max_52[fr]) & (data$Max_Not[fr] != data$Max_52[fr]) == TRUE ){ data$Near_52_Week_High[fr] = "Near 52-Week High" } else { data$Near_52_Week_High[fr] = "Not Near 52-Week High" } }

**Step 5:** For all the stocks that fulfill the criteria mentioned in the step above, we create a long-only portfolio. The entry price equals the price at the start of the month. We square off our long position at the start of the next month. We consider the close price of the stock for our entry and exit trades.

# Enter into a long position for stocks at each start of month data = subset(data,select=c(TICKER,DATE,CLOSE,NIFTY,First_Day,Max_52,Near_52_Week_High) ,subset=(First_Day=="First Day of the Month")) data$NEXT_CLOSE = lagpad(data$CLOSE, 1) colnames(data) = c("TICKER","DATE","CLOSE","NIFTY","First_Day","Max_52","Near_52_Week_High", "NEXT_CLOSE") data$Profit_Loss = numeric(nrow(data)); data$Nifty_change = numeric(nrow(data)); for (i in 1:length(data$CLOSE)) { if ((data$Near_52_Week_High[i] == "Near 52-Week High") == TRUE){ data$Profit_Loss[i] = round(data$CLOSE[i+1] - data$CLOSE[i],2) data$Nifty_change[i] = round(Delt(data$NIFTY[i],data$NIFTY[i+1])*100,2) } } for (i in 1:length(data$CLOSE)) { if ((data$Near_52_Week_High[i] == "Not Near 52-Week High") == TRUE){ data$Profit_Loss[i] = 0 data$Nifty_change[i] = round(Delt(data$NIFTY[i],data$NIFTY[i+1])*100,2) } }

**Step 6:** In this step, we write an R code which creates a summary sheet of all the trades for each month in the backtest period. A sample summary sheet has been shown below. It also includes the Profit/Loss from every trade undertaken during the month.

# Create a Summary worksheet for all the trades during a particular month final_data = final_data[-1,] final_data = subset(final_data,select=c(TICKER,DATE,CLOSE,NEXT_CLOSE,Max_52, Near_52_Week_High,Profit_Loss,Nifty_change), subset=(Near_52_Week_High == "Near 52-Week High")) colnames(final_data) = c("Ticker","Date","Close_Price","Next_Close_Price", "Max. 52-Week price","Is Stock near 52-Week high", "Profit_Loss","Nifty_Change") merged_file = paste(date_values[a],"- Summary.csv") write.csv(final_data,merged_file)

**Step 7: **In the final step, we compute the portfolio performance over the entire backtest period and also plot the equity curve using the PerformanceAnalytics package in R. The portfolio performance is saved in a CSV file.

cum_returns = Return.cumulative(eq_ts, geometric = TRUE) print(cum_returns) charts.PerformanceSummary(eq_ts,geometric=TRUE, wealth.index = FALSE) print(SharpeRatio.annualized(eq_ts, Rf = 0, scale = 12, geometric = TRUE))

A sample summary of the portfolio performance has been shown below. In this case, the input parameters to our trading strategy were as follows:

**Plotting the Equity Curve**

As can be observed from the equity curve, our trading strategy performed well during the initial period and then suffered drawdowns in the middle of the backtest period. The Sharpe ratio for the trading strategy comes to 0.4098.

Cumulative Return 1.172446 Annualized Sharpe Ratio (Rf=0%) 0.4098261

This was a simple trading strategy that we developed using the 52-week high effect explanation. One can tweak this trading strategy further to improve its performance and make it more robust or try it out on different markets.

**Next Step**

You can explore other trading strategies listed on the Quantpedia site under their screener page and if interested you can sign up to get access to hundreds of exciting trading strategies.

If you want to learn various aspects of Algorithmic trading then check out our Executive Programme in Algorithmic Trading (EPAT™). The course covers training modules like Statistics & Econometrics, Financial Computing & Technology, and Algorithmic & Quantitative Trading. EPAT™ is designed to equip you with the right skill sets to be a successful trader. Enroll now!

The post Trading Strategy: 52-Weeks High Effect in Stocks appeared first on .

**leave a comment**for the author, please follow the link and comment on their blog:

**R programming**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.